home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Windows 6-Pak - Disc 4
/
Windows 6-Pak (InfoMagic) (Disc 4) (1999).ISO
/
3D-Graphics-Editors
/
lsystem3.exe
/
L System 3
/
_setup.1
/
BEKERPL.LS
< prev
next >
Wrap
Text File
|
1998-05-11
|
956b
|
30 lines
#╔═════════════════╤═══════════════════════════════╗
#║ bekerplant.ls │ (c) C.J. van der Mark ║
#╟─────────────────┴───────────────────────────────╢
#║ Questions about Lparser files to: ║
#║ Internet cvdmark@xs4all.nl ║
#║ Fido 2:283/203.11 ║
#║ PCG 9:526/464.3 ║
#╚═════════════════════════════════════════════════╝
6
17
300
Q
Q=X>(45)X>(45)X>(45)X>(45)X>(45)X>(45)X>(45)X
X=[c(2)FFFFFF&(30)c(2)FFAYZ]
Y=[h+B[+EEEEEE[h+CiDiD][h-CiDiD]][h-EEEEEE[h+CiDiD][h-CiDiD]]]
Z=[h-B[+EEEEEE[h+CiDiD][h-CiDiD]][h-EEEEEE[h+CiDiD][h-CiDiD]]]
A=aEA
B=EbEbB
C=aGaGaGaGaGaGaGatGtGC
D=bHD
a=&(6)
b=^(9)
F=?(0.98)'(0.995)F
h=~(6)
i=?(0.94)i
E=c(1)F[+(40)^(60)?(0.05)'(4)c(8)F][-(40)^(60)?(0.05)'(4)c(8)F]
G=c(1)F[+(40)^(60)?(0.03)'(2)c(8)F][-(40)^(60)?(0.03)'(2)c(8)F]
H=c(1)F[+(40)^(60)?(0.02)'(1)c(8)F][-(40)^(60)?(0.02)'(1)c(8)F]
@